#-*-Perl-*-

eval 'exec /emc/sgdb/runperl $0 $*'
    if 0 ;

my  $dir = shift ;
if ($dir eq '-fork') {
    exit if   fork();
    $dir = shift ;
}

chdir $dir or die "can't chdir $dir: $!\n" ;
select undef, undef, undef, 0.05 ;
# print STDOUT "chdir: @ARGV\n" ;
exec "@ARGV" ;
